100 REM WRITTEN APRIL 23,1984 102 REM DARREN BOYD 104 REM BOX 522 106 REM NELSON, B.C. 108 REM V1L 5R3 110 REM D.B. PRODUCTIONS 120 POKE53280,11:POKE53281,0:PRINT"" 130 PRINT"[147]" 140 PRINT""TAB(15)"THEME FROM" 150 PRINT""TAB(15)"[159]STAR TREK" 160 PRINT""TAB(11)"THE MOTION PICTURE" 170 PRINT""TAB(11)"BY JERRY GOLDSMITH" 180 FORI=54272TO54296:POKEI,0:NEXTI 190 FORPA=1TO500:NEXTPA 200 L1=54272:L2=54279:L3=54286 210 H1=L1+1:H2=L2+1:H3=L3+1 220 V1=L1+4:V2=L2+4:V3=L3+4 230 POKE 54296,15 240 POKE V1+1,063:POKE V1+2,003 250 POKE V2+1,063:POKE V2+2,001 260 POKE V3+1,063:POKE V3+2,001 270 T=TI 280 POKEV1,W1:POKEV2,W2:POKEV3,W3 290 READ S:IF S=0 GOTO 380 300 S=S/2 310 READ X1,Y1,X2,Y2,X3,Y3,W1,W2,W3 320 IF X1 THEN POKE H1,X1:POKE L1,Y1:POKE V1,33 330 IF X2 THEN POKE H2,X2:POKE L2,Y2:POKE V2,33 340 IF X3 THEN POKE H3,X3:POKE L3,Y3:POKE V3,33 350 T=T+S 360 IF T>TI GOTO 360 370 GOTO 280 380 FORPA=1TO500:NEXTPA 390 FORJ=L1 TO 54296:POKE J,0:NEXT J 400 GOTO60000 410 DATA020,016,195,014,024,011,048,33,32,32:REM M 01 420 DATA020,016,195,014,024,011,048,33,32,32 430 DATA020,016,195,014,024,011,048,33,32,32 440 DATA020,016,195,014,024,011,048,33,32,32 450 DATA020,022,096,000,000,000,000,32,32,32 460 DATA020,028,049,000,000,000,000,32,32,32 470 DATA020,025,030,015,210,012,143,33,32,32:REM M 02 480 DATA020,025,030,015,210,012,143,33,32,32 490 DATA020,025,030,015,210,012,143,33,32,32 500 DATA020,025,030,015,210,012,143,33,32,32 510 DATA020,022,096,000,000,000,000,32,32,32 520 DATA020,037,162,000,000,000,000,32,32,32 530 DATA020,033,135,022,096,014,024,33,32,32:REM M 03 540 DATA020,033,135,022,096,014,024,33,32,32 550 DATA020,033,135,022,096,014,024,33,32,32 560 DATA020,033,135,022,096,014,024,33,32,32 570 DATA020,033,135,022,096,014,024,33,32,32 580 DATA020,033,135,022,096,014,024,33,32,32 590 DATA020,033,135,021,031,012,143,32,32,32:REM M 04 600 DATA020,019,239,000,000,000,000,32,32,32 610 DATA020,029,223,000,000,000,000,32,32,32 620 DATA020,033,135,000,000,000,000,32,32,32 630 DATA020,037,162,000,000,000,000,32,32,32 640 DATA020,029,223,000,000,000,000,32,32,32 650 DATA060,033,135,028,049,011,048,32,32,32:REM M 05 660 DATA060,029,223,025,030,012,143,32,32,32 670 DATA060,028,049,022,096,014,024,33,32,32:REM M 06 680 DATA020,028,049,022,096,014,024,32,32,32 690 DATA020,022,096,022,096,014,024,32,32,32 700 DATA020,028,049,022,096,014,024,32,32,96 710 DATA020,025,030,021,031,012,143,33,32,32:REM M 07 720 DATA020,025,030,000,000,000,000,33,32,32 730 DATA020,025,030,021,031,012,143,33,32,32 740 DATA020,025,030,018,209,012,143,33,32,32 750 DATA020,025,030,018,209,012,143,33,32,32 760 DATA020,025,030,018,209,012,143,33,32,32 770 DATA020,025,030,022,096,012,143,33,32,32:REM M 08 780 DATA020,025,030,022,096,012,143,33,32,32 790 DATA020,025,030,022,096,012,143,33,32,32 800 DATA020,025,030,018,209,011,048,33,32,32 810 DATA020,025,030,018,209,011,048,33,32,32 820 DATA020,025,030,018,209,011,048,33,32,32 830 DATA020,016,195,014,024,011,048,33,32,32:REM M 09 840 DATA020,016,195,014,024,011,048,33,32,32 850 DATA020,016,195,014,024,011,048,33,32,32 860 DATA020,016,195,014,024,011,048,33,32,32 870 DATA020,022,096,000,000,000,000,32,32,32 880 DATA020,028,049,000,000,000,000,32,32,32 890 DATA020,025,030,019,239,012,143,33,32,32:REM M 10 900 DATA020,025,030,019,239,012,143,33,32,32 910 DATA020,025,030,019,239,012,143,33,32,32 920 DATA020,025,030,019,239,012,143,33,32,32 930 DATA020,021,031,000,000,000,000,32,32,32 940 DATA020,037,162,000,000,000,000,32,32,32 950 DATA020,033,135,022,096,014,024,33,32,32:REM M 11 960 DATA020,033,135,022,096,014,024,33,32,32 970 DATA020,033,135,022,096,014,024,33,32,32 980 DATA020,033,135,022,096,014,024,33,32,32 990 DATA020,033,135,022,096,014,024,33,32,32 1000 DATA020,033,135,022,096,014,024,33,32,32 1010 DATA020,033,135,022,096,012,143,32,32,32:REM M 12 1020 DATA020,019,239,000,000,000,000,32,32,32 1030 DATA020,029,223,000,000,000,000,32,32,32 1040 DATA020,033,135,000,000,000,000,32,32,32 1050 DATA020,037,162,000,000,000,000,32,32,32 1060 DATA020,029,223,000,000,000,000,32,32,32 1070 DATA060,033,135,028,049,011,048,32,32,32:REM M 13 1080 DATA060,029,223,025,030,012,143,32,32,32 1090 DATA080,028,049,022,096,014,024,32,32,32:REM M 14 1100 DATA020,028,049,022,096,014,024,32,32,32 1110 DATA020,022,096,022,096,014,024,32,32,32 1120 DATA020,025,030,021,031,012,143,33,32,32:REM M 15 1130 DATA020,025,030,000,000,000,000,33,32,32 1140 DATA020,025,030,021,031,012,143,33,32,32 1150 DATA020,025,030,021,031,012,143,33,32,32 1160 DATA020,025,030,021,031,012,143,33,32,32 1170 DATA020,025,030,021,031,012,143,33,32,32 1180 DATA020,025,030,021,031,012,143,33,32,32:REM M 16 1190 DATA020,025,030,021,031,012,143,33,32,32 1200 DATA020,025,030,021,031,012,143,33,32,32 1210 DATA020,025,030,021,031,012,143,33,32,32 1220 DATA020,025,030,000,000,000,000,32,32,32 1230 DATA020,037,162,000,000,000,000,32,32,32 1240 DATA020,042,062,035,134,014,024,33,33,32:REM M 17 1250 DATA020,042,062,035,134,000,000,33,33,32 1260 DATA020,042,062,035,134,000,000,33,33,32 1270 DATA020,042,062,035,134,000,000,33,33,32 1280 DATA020,021,031,000,000,000,000,32,32,32 1290 DATA020,035,134,028,049,011,218,33,33,32:REM M 18 1300 DATA020,035,134,028,049,000,000,33,33,32 1310 DATA020,035,134,028,049,000,000,33,33,32 1320 DATA020,035,134,028,049,000,000,33,33,32 1330 DATA020,028,049,000,000,000,000,32,32,32 1340 DATA020,047,107,000,000,000,000,32,32,32 1350 DATA020,042,062,035,134,014,024,33,33,32:REM M 19 1360 DATA060,042,062,035,134,000,000,33,32,32 1370 DATA020,021,031,000,000,000,000,32,32,32 1380 DATA020,035,134,028,049,011,218,33,33,32:REM M 20 1390 DATA020,035,134,028,049,000,000,33,33,32 1400 DATA020,035,134,028,049,000,000,33,32,32 1410 DATA060,035,135,028,049,011,218,32,32,32 1420 DATA060,042,062,035,134,014,024,32,32,32:REM M 21 1430 DATA060,047,107,035,134,011,218,32,32,32 1440 DATA060,050,060,042,062,010,143,32,32,32:REM M 22 1450 DATA060,047,107,037,162,011,218,32,32,32 1460 DATA020,042,062,035,134,014,024,32,32,32:REM M 23 1470 DATA020,028,049,000,000,000,000,32,32,32 1480 DATA020,042,062,000,000,000,000,32,32,32 1490 DATA060,037,162,031,165,014,024,33,33,33 1500 DATA100,037,162,031,165,014,024,33,33,33:REM M 24 1510 DATA010,037,162,031,165,014,024,33,32,32 1520 DATA010,037,162,031,165,014,024,32,32,32 1530 DATA020,037,162,029,223,014,239,33,33,32:REM M 25 1540 DATA060,037,162,029,223,000,000,32,32,32 1550 DATA020,018,209,000,000,000,000,32,32,32 1560 DATA020,029,223,000,000,000,000,32,32,32 1570 DATA020,033,135,025,030,014,239,33,33,32:REM M 26 1580 DATA060,033,135,025,030,000,000,32,32,32 1590 DATA020,025,030,000,000,000,000,32,32,32 1600 DATA020,042,062,000,000,000,000,32,32,32 1610 DATA020,037,162,029,223,014,239,32,32,32:REM M 27 1620 DATA020,018,209,000,000,000,000,32,32,32 1630 DATA020,029,223,000,000,000,000,32,32,32 1640 DATA060,033,135,025,030,014,239,33,33,33 1650 DATA060,033,135,025,030,014,239,33,32,32:REM M 28 1660 DATA060,025,030,025,030,014,239,32,32,32 1670 DATA060,037,162,029,223,014,239,32,32,32:REM M 29 1680 DATA060,042,062,033,135,012,143,32,32,32 1690 DATA060,044,193,035,134,011,048,32,32,32:REM M 30 1700 DATA060,039,223,033,135,013,078,32,32,32 1710 DATA020,039,223,029,223,014,239,32,32,32:REM M 31 1720 DATA020,037,162,000,000,000,000,32,32,32 1730 DATA020,029,223,000,000,000,000,32,32,32 1740 DATA060,033,135,025,030,016,195,33,33,33 1750 DATA020,033,135,025,030,016,195,33,33,32:REM M 32 1760 DATA040,033,135,025,030,000,000,33,32,32 1770 DATA060,025,030,025,030,016,195,32,32,32 1780 DATA020,016,195,014,024,011,048,33,32,32:REM M 33 1790 DATA020,016,195,014,024,011,048,33,32,32 1800 DATA020,016,195,014,024,011,048,33,32,32 1810 DATA020,016,195,014,024,011,048,33,32,32 1820 DATA020,022,096,000,000,000,000,32,32,32 1830 DATA020,028,049,000,000,000,000,32,32,32 1840 DATA020,025,030,015,210,012,143,33,32,32:REM M 34 1850 DATA020,025,030,015,210,012,143,33,32,32 1860 DATA020,025,030,015,210,012,143,33,32,32 1870 DATA020,025,030,015,210,012,143,33,32,32 1880 DATA020,022,096,000,000,000,000,32,32,32 1890 DATA020,037,162,000,000,000,000,32,32,32 1900 DATA020,033,135,022,096,014,024,33,32,32:REM M 35 1910 DATA020,033,135,022,096,014,024,33,32,32 1920 DATA020,033,135,022,096,014,024,33,32,32 1930 DATA020,033,135,022,096,014,024,33,32,32 1940 DATA020,033,135,022,096,014,024,33,32,32 1950 DATA020,033,135,022,096,014,024,33,32,32 1960 DATA020,033,135,021,031,012,143,32,32,32:REM M 36 1970 DATA020,019,239,000,000,000,000,32,32,32 1980 DATA020,029,223,000,000,000,000,32,32,32 1990 DATA020,033,135,000,000,000,000,32,32,32 2000 DATA020,037,162,000,000,000,000,32,32,32 2010 DATA020,029,223,000,000,000,000,32,32,32 2020 DATA060,033,135,028,049,011,048,32,32,32:REM M 37 2030 DATA060,029,223,025,030,012,143,32,32,32 2040 DATA060,028,049,022,096,014,024,33,32,32:REM M 38 2050 DATA020,028,049,022,096,014,024,32,32,32 2060 DATA020,022,096,022,096,014,024,32,32,32 2070 DATA020,028,049,022,096,014,024,32,32,96 2080 DATA020,025,030,000,000,000,000,33,32,32 2090 DATA020,025,030,021,031,012,143,33,32,32 2100 DATA020,025,030,018,209,012,143,33,32,32 2110 DATA020,025,030,018,209,012,143,33,32,32 2120 DATA020,025,030,018,209,012,143,33,32,32 2130 DATA020,025,030,022,096,012,143,33,32,32:REM M 40 2140 DATA020,025,030,022,096,012,143,33,32,32 2150 DATA020,025,030,022,096,012,143,33,32,32 2160 DATA020,025,030,018,209,011,048,33,32,32 2170 DATA020,025,030,018,209,011,048,33,32,32 2180 DATA020,025,030,018,209,011,048,33,32,32 2190 DATA020,016,195,014,024,011,048,33,32,32:REM M 41 2200 DATA020,016,195,014,024,011,048,33,32,32 2210 DATA020,016,195,014,024,011,048,33,32,32 2220 DATA020,016,195,014,024,011,048,33,32,32 2230 DATA020,022,096,000,000,000,000,32,32,32 2240 DATA020,028,049,000,000,000,000,32,32,32 2250 DATA020,025,030,019,239,012,143,33,32,32:REM M 42 2260 DATA020,025,030,019,239,012,143,33,32,32 2270 DATA020,025,030,019,239,012,143,33,32,32 2280 DATA020,025,030,019,239,012,143,33,32,32 2290 DATA020,021,031,000,000,000,000,32,32,32 2300 DATA020,037,162,000,000,000,000,32,32,32 2310 DATA020,033,135,022,096,014,024,33,32,32:REM M 43 2320 DATA020,033,135,022,096,014,024,33,32,32 2330 DATA020,033,135,022,096,014,024,33,32,32 2340 DATA020,033,135,022,096,014,024,33,32,32 2350 DATA020,033,135,022,096,014,024,33,32,32 2360 DATA020,033,135,022,096,014,024,33,32,32 2370 DATA020,033,135,022,096,012,143,32,32,32:REM M 44 2380 DATA020,019,239,000,000,000,000,32,32,32 2390 DATA020,029,223,000,000,000,000,32,32,32 2400 DATA020,033,135,000,000,000,000,32,32,32 2410 DATA020,037,162,000,000,000,000,32,32,32 2420 DATA020,029,223,000,000,000,000,32,32,32 2430 DATA060,033,135,028,049,011,048,32,32,32:REM M 45 2440 DATA060,037,162,028,049,009,104,32,32,32 2450 DATA060,039,223,033,135,008,097,32,32,32:REM M 46 2460 DATA060,035,134,029,223,008,225,32,32,32 2470 DATA080,044,193,035,134,013,078,33,32,32:REM M 47 2480 DATA020,044,193,035,134,013,078,33,32,32 2490 DATA020,044,193,035,134,013,078,33,32,32 2500 DATA040,044,193,035,134,009,247,32,32,32:REM M 48 2510 DATA040,039,223,000,000,000,000,32,32,32 2520 DATA040,035,134,000,000,000,000,32,32,32 2530 DATA020,044,193,033,135,011,048,33,32,32:REM M 49 2540 DATA020,044,193,000,000,000,000,33,32,32 2550 DATA020,044,193,033,135,011,048,33,32,32 2560 DATA020,044,193,033,135,011,048,33,32,32 2570 DATA020,044,193,033,135,011,048,33,32,32 2580 DATA020,044,193,033,135,011,048,33,32,32 2590 DATA060,044,193,033,135,011,048,33,32,32:REM M 50 2600 DATA020,044,193,022,096,011,048,33,32,32 2610 DATA020,044,193,022,096,011,048,33,32,32 2620 DATA020,044,193,022,096,011,048,33,32,32 2630 DATA020,044,193,022,096,011,048,32,32,32:REM M 51 2640 DATA000 60000 PRINT"[147]":POKE53280,254:POKE53281,246:PRINTCHR$(9):PRINTCHR$(142) 60010 PRINT" PRODUCED IN 1984" 60020 PRINT" D.B. PRODUCTIONS[154]" 60030 I=55795:J=55796:L=55875:M=55876 60040 FORK=1TO20 60050 FORPA=1TO150:NEXT 60060 POKEI,12:POKEJ,12:POKEL,1:POKEM,1 60070 I=I-1:J=J+1:L=L-1:M=M+1 60080 NEXTK 60090 END